home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / SOUND / CRYS270.ZIP / CRYSINT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-26  |  2.4 KB  |  78 lines
  1. {**************************************************************************}
  2. {*   Cette unité comprend les fonctions internes de crystal. Normalement  *}
  3. {*   vous n'avez pas utiliser directement ces fonctions.                  *}
  4. {*   Toutefois pour eviter un appel inutile à MAKEMOD par exemple vous    *}
  5. {*   pouvez utiliser directement le fonctions du premier blocs.           *}
  6. {*                                                                        *}
  7. {* Programmé par Sébastien Granjoux                                       *}
  8. {* Commencé le 01/06/93                                                   *}
  9. {* Modification le 18/03/95                                               *}
  10.  
  11. UNIT CRYSINT;
  12.  
  13. INTERFACE
  14.  
  15. FUNCTION SETMOD(frequence,device,port:WORD;irq,dma:BYTE):INTEGER;
  16. PROCEDURE MAKEMOD;
  17. PROCEDURE STARTMOD;
  18. PROCEDURE STOPMOD;
  19. FUNCTION DETECTSND(VAR device,port:WORD;VAR irq,dma:BYTE):INTEGER;
  20. PROCEDURE CHANGEVOL(newvol:BYTE);
  21. PROCEDURE SETMODPOS(newpos:WORD);
  22. FUNCTION GETMODPOS:WORD;
  23. FUNCTION USEGUS:INTEGER;
  24. FUNCTION USESPK:INTEGER;
  25. FUNCTION USEDAC:INTEGER;
  26. FUNCTION USEADL:INTEGER;
  27. FUNCTION USESB:INTEGER;
  28. FUNCTION USESP:INTEGER;
  29.  
  30. { Les fonctions suivantes sont en fait des données utilisées par les deux    }
  31. { unitées. Il y a a priori aucune raison pour que vous les utilisiez.        }
  32.  
  33. PROCEDURE TEMPO;
  34. PROCEDURE BPM;
  35. PROCEDURE NBVOICE;
  36. PROCEDURE INSTRUMENT1;
  37. PROCEDURE PATTERNSEG;
  38. PROCEDURE SEQUENCE;
  39. PROCEDURE COMMENTS;
  40. PROCEDURE LASTPOS;
  41.  
  42. IMPLEMENTATION
  43.  
  44. {$L CRYS260.OBJ}
  45. {$L CRYSDEV.OBJ}
  46. {$L GUS.OBJ}
  47. {$L SNDBLAST.OBJ}
  48. {$L SNDPRO.OBJ}
  49. {$L DAC.OBJ}
  50. {$L SPEAKER.OBJ}
  51. {$L ADLIB.OBJ}
  52. FUNCTION SETMOD(frequence,device,port:WORD;irq,dma:BYTE):INTEGER;EXTERNAL;
  53. PROCEDURE MAKEMOD;EXTERNAL;
  54. PROCEDURE STARTMOD;EXTERNAL;
  55. PROCEDURE STOPMOD;EXTERNAL;
  56. FUNCTION DETECTSND(VAR device,port:WORD;VAR irq,dma:BYTE):INTEGER;EXTERNAL;
  57. PROCEDURE CHANGEVOL(newvol:BYTE);EXTERNAL;
  58. PROCEDURE SETMODPOS(newpos:WORD);EXTERNAL;
  59. FUNCTION GETMODPOS:WORD;EXTERNAL;
  60. FUNCTION USESPK:INTEGER;EXTERNAL;
  61. FUNCTION USEGUS:INTEGER;EXTERNAL;
  62. FUNCTION USEDAC:INTEGER;EXTERNAL;
  63. FUNCTION USESB:INTEGER;EXTERNAL;
  64. FUNCTION USEADL:INTEGER;EXTERNAL;
  65. FUNCTION USESP:INTEGER;EXTERNAL;
  66.  
  67. PROCEDURE TEMPO;EXTERNAL;
  68. PROCEDURE BPM;EXTERNAL;
  69. PROCEDURE NBVOICE;EXTERNAL;
  70. PROCEDURE INSTRUMENT1;EXTERNAL;
  71. PROCEDURE PATTERNSEG;EXTERNAL;
  72. PROCEDURE SEQUENCE;EXTERNAL;
  73. PROCEDURE COMMENTS;EXTERNAL;
  74. PROCEDURE LASTPOS;EXTERNAL;
  75.  
  76. END.
  77.  
  78.